Top 10k strings from Schnapsen (1984)(Chris Gandler)(de).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 z$(k)=t$(1
   2 w$(games+1
   1 zudrehen ?
   1 z$=z$+p$(j*4
   1 z$=z$+p$(-ww+3
   1 z$(i)="K")+(3
   1 z$(i)="D")+(2
   1 z$(i)="B")
   1 z$(i)="A")+(10
   1 y$="K")+(3
   1 y$="D")+(2
   1 w,w,w,w,w,w,w,w
   1 value=value+valsp
   1 value=value+20
   1 value=value+(11
   1 valsp=value:
   1 twenty=-twenty+1
   1 suma>(exa-value)*.4
   1 suma=suma+value
   1 sum=sum+value:
   1 sum=sum+bonus
   1 sczx=sczx+value:
   1 sczx=sczx+bonus:
   1 sczx=frsczx:
   1 scsp=scsp+value:
   1 scsp=scsp+20
   1 scsp=frscsp
   1 schnxx    
   1 min=value:
   1 max=value:
   1 kleinste NA-Karte finden
   1 ink;g$(j+1
   1 h$=h$+p$(ww+1
   1 h$=h$+p$(j*4
   1 h$(k)=t$(1
   1 h$(k)=e$(1
   1 games=games+1
   1 g,h,g,h,g,h,g,h
   1 frsczx=sczx
   1 frscsp=scsp:
   1 forty=-forty+1
   1 exa=exa-value
   1 exa=exa-valsp
   1 exa(=Punkte der im Spiel befindl. Atout) updaten
   1 eval=((bonus+13
   1 e$=z$(cardnr
   1 dotszx=dotszx+1
   1 dotssp=dotssp+1
   1 d$=h$(ss*2
   1 cardnr=stack:
   1 cardnr=k-1
   1 cardnr=i-1
   1 bon1=bonus
   1 bgn=-bgn+1
   1 anz=anz-(p$=""):
   1 allg. Kartendarst.rout. am Tisch
   1 ZT<T<T<T<T<T<T<T<T<T<T<T<T<T<T<T<8
   1 Uebersetzung der Farben in Zahlen
   1 Tisch clearen
   1 Test Spieleraustausch
   1 Tastaturbelegung
   1 Tastaturabfrage
   1 Splransage 20/40
   1 Spielstrategie HP
   1 Spielstand anzeigen
   1 Sortieren eines Blattes
   1 Kartenwerte darstellen
   1 Kartenwert y$
   1 Kartenpaket+Atoutkarte
   1 GyGGGGzGGGGzGGGGzGGGGyGGGG88
   1 GyGGGGzGGGGzGGGGzGGGGyGGG88
   1 G::8:8:8:8:8:8:8:8:8:8:8:8:8:8:8:8
   1 F A L S C H E  K A R T E
   1 Endspiel Draufspiel
   1 Endspiel Ausspiel
   1 Ende HP - div. UPRO
   1 Comp. Karten darst.
   1 Austeilen+Atoutkarte festlegen
   1 Austausch Comp
   1 Ausspiel Spieler
   1 Atoutkarte darstellen
   1 ;"genug Punkte gemacht."
   1 ;"Tastaturbele";
   1 ;"TEILEN":
   1 ;"STAND: ";dotssp;" : ";dotszx
   1 ;"SORTIEREN":
   1 ;"MISCHEN":
   1 ;"Ich tausche"
   1 ;"Du kannst nicht tauschen":
   1 ;"Du hast zugedreht und nicht";
   1 ;"Du hast ";scsp;",ich habe ";sczx;" Punkte":
   1 ;"Druecke eine Taste um anzufangen":
   1 ;"Dreh zu"
   1 ;"Dein Stand ist ";scsp;" Punkte":
   1 ;"Dein Blatt! - ";("du beginnst"
   1 ;"Atout:";
   1 ;" ZX|Du";
   1 ;" Bereit fuers naechste Blatt ";
   1 ;" ";w$(k,1
   1 8<T<T<T<T<T<T<T<T<T<T<T<T<T<T<T<T
   1 8:8:8:8:8:8:8:8:8:8:8:8:8:8:8:8::
   1 -value+valsp+(10
   1 -value+valsp)*(w=1
   1 -value)*(w=0
   1 -value)*(bonus
   1 -value))*(w=1
   1 -- Draufspiel --
   1 -- Ausspiel --
   1 ,l,l,l,j,0
   1 +eval+(value
   1 +"(vor Ausspiel)","t","austauschen","w","Sieg deklarieren","c","zudrehen","5,8","Karte waehlen","ENTER","Ausspiel"
   1 *vorzeitiges Verlassen, falls im 20/40er Testmode(aufgerufen von Zeile 33)
   1 *twenty+40
   1 *twenty*(ill=0
   1 *forty*(ill=0
   1 *ctr)*(w=1
   1 *Routine 710 stellt Kartenwert g$ auf Karte der Position  ( rr,l*5 ) dar.
   1 *(valsp<10
   1 *(c$="K")+53
   1 *(c$="D")+54
   1 *(c$="B"):
   1 *(c$="A")+51
   1 * w wird 1 falls Comp Stichsieger
   1 * 20 ? / 40 ?
   1 )="D")+("D"
   1 );" Spiel !";
   1 )+z$(cardnr+2
   1 )+e$+z$(k-1
   1 )+("ich beginne"
   1 )+("Dreh' zu"
   1 ))+(bonus-value*(bonus
   1 $="A")+(10
   1 "Schnapsen"
   1 "2,4","20/40 ansagen"+
   1 ")+(g$(j)="
   1 " Wer jemand eine Grube graebt..."
   1 "   Bist du noch zu retten ?!!   "
   1  Was faellt dir ein !!!    "
   1  Was du traust dich ?!!
   1  Chr Gandler, Wien